﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit1") <> "" Then

Dim sid_,keep_,bbsfirstid_,bbsFileSize_,limit_
sid_ = Request.Form("bbsSid")
If sid_ <> "" And ifLetter(sid_)=False Then Call Error2("论坛会话标识无效！")

keep_ = Request.Form("bbsMsgKeep")
If keep_ = "" Or IsNumeric(keep_)=False Or keep_<0 Then Call Error2("消息保存天数无效！")
If keep_>730 Then Call Error2("注册限制最大 730 天，也就是两年！")

limit_ = Request.Form("bbsRegLimit")
If limit_ = "" Or IsNumeric(limit_)=False Or limit_<0 Then Call Error2("注册限制数字无效！")
If limit_>720 Then Call Error2("注册限制最大 720 小时，也就是一个月！")

bbsFileSize_ = Request.Form("bbsFileSize")
If bbsFileSize_ = "" Or IsNumeric(bbsFileSize_)=False Or bbsFileSize_<0 Then bbsFileSize_=500
If bbsFileSize_>10485 Then Call Error2("文件大小限制最大 10485 kb，也就是10M！")


' if len(Request.Form("numTitle"))<1 then
	' Call Error2("请输入！")
' end if

'----------------------------------------------------------------
'	生成bbs.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/bbs.asp"'生成bbs.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsReg="""&Request.Form("bbsReg")&""" '论坛注册功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsAgree="""&forQuote(Request.Form("bbsAgree"))&""" '论坛注册协议"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsRegLimit="""&int(limit_)&""" '论坛注册限制"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsSid="""&sid_&""" '论坛会话标识"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsMoney="""&forQuote(Request.Form("bbsMoney"))&""" '论坛金币名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsPoint="""&forQuote(Request.Form("bbsPoint"))&""" '论坛积分名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsUserTitle="""&Request.Form("bbsUserTitle")&""" '论坛称号系统"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsLevel="""&Request.Form("bbsLevel")&""" '等级升级难度"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileUp="""&Request.Form("bbsFileUp")&""" '文件上传功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileType="""&LCase(forQuote(Request.Form("bbsFileType")))&""" '文件允许类型"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileSize="""&bbsFileSize_&""" '文件大小限制"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsIp="""&Request.Form("bbsIp")&""" 'IP异常检测"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsEssay="""&Request.Form("bbsEssay")&""" '投稿功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsMsgKeep="""&int(keep_)&""" '消息保存天数"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsbirthday="""&forQuote(Request.Form("bbsbirthday"))&""" '生日提醒"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<meta http-equiv=""refresh"" content=""1;url=index.asp?sid="&sid&"""><title>网站论坛配置</title></head><body><div class=""main320"">"
Response.Write "成功设置！正在返回..."
else
	If bbsFileUp="" Then bbsFileUp="1"'论坛默认允许文件上传
	If bbsFileType="" Then bbsFileType="rar|zip|gif|jpg|png|mp3|wma"'允许文件类型
	If Not ifNum(bbsFileSize) Then bbsFileSize="500"'论坛默认允许文件上传大小(k)
	If bbsRegLimit="" Then bbsRegLimit="0"
%>
<title>网站论坛配置</title></head><body><div class="main400">
<form method="post" action="bbs.asp">
注册功能:<select name="bbsReg">
<option value="1">开启</option>
<option value="0" <% If bbsReg="0" Then w "selected"%>>关闭</option>
</select><br/>
注册协议:(支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a>)<br/>
<textarea name="bbsAgree" cols="45" rows="12"/><%=bbsAgree%></textarea><br/>
<table>
<tr><td>注册限制:</td><td><input name="bbsRegLimit" type="text" value="<%=bbsRegLimit%>" size="4"/>(小时)</td></tr>
<tr><td>会话标识:</td><td><input name="bbsSid" type="text" value="<%=bbsSidstr%>" size="4"/></td></tr>
<tr><td>金币名称:</td><td><input name="bbsMoney" type="text" value="<%=bbsMoney%>" size="4"/></td></tr>
<tr><td>积分名称:</td><td><input name="bbsPoint" type="text" value="<%=bbsPoint%>" size="4"/></td></tr>
<tr><td>称号系统:</td><td><select name="bbsUserTitle">
<option value="0">关闭</option>
<option value="1"<% If bbsUserTitle="1" Then w "selected"%>>开启</option>
</select></td></tr>
<tr><td>升级难度:</td><td><select name="bbsLevel">
<option value="1">简单</option>
<option value="2"<% If bbsLevel="2" Then w "selected"%>>中等</option>
<option value="3"<% If bbsLevel="3" Then w "selected"%>>困难</option>
</select></td></tr>
<tr><td>文件上传功能:</td><td><select name="bbsFileUp">
<option value="1">开启</option>
<option value="0"<% If bbsFileUp="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>文件类型:</td><td><input name="bbsFileType" type="text" value="<%=bbsFileType%>" class="input"/></td></tr>
<tr><td>文件大小限制:</td><td><input name="bbsFileSize" type="text" value="<%=bbsFileSize%>" size="5"/>(kb)</td></tr>
<tr><td>IP检测:</td><td><select name="bbsIp">
<option value="1">开启</option>
<option value="0" <% If bbsIp="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>投稿功能:</td><td><select name="bbsEssay">
<option value="1">开启</option>
<option value="0" <% If bbsEssay="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>消息保存:</td><td><input name="bbsMsgKeep" type="text" value="<%=bbsMsgKeep%>" size="2"/>(天)</td></tr>
<tr><td>生日显示:</td><td><input name="bbsbirthday" type="text" value="<%=bbsbirthday%>" class="input"/></td></tr>
</table>
<input type="submit" value="保存配置"/>
<input type="hidden" name="submit1" value="1"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
</form>
温馨提示<br/>
1、会员生日显示留空则不显示生日提示,支持UBB<br/>
2、移动手机IP不稳定，最好不要设置IP异常检测<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last2%>